10 CLS:PRINT "Bearing & Distance Program:":CLS:SET N
20 PRINT "x1 =";x1;:INPUT x1:PRINT "y1 =";y1;:INPUT y1:CLS
30 PRINT "x2 =";x2;:INPUT x2:PRINT "y2 =";y2;:INPUT y2:CLS:PRINT "Wait...";
40 Z=POL((x2-x1),(y2-y1)):BRG=90-Y:DIST=X:IF BRG<0 THEN BRG=BRG+360
50 CLS:BEEP 0:PRINT "Bearing:  ";DMS$(BRG);TAB(32);"Distance: ";ROUND(DIST,-5)
60 CLS:GOTO 20